home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Programming / amigatalk / system / Device.st < prev    next >
Encoding:
Text File  |  2001-02-28  |  962 b   |  47 lines
  1. "---------------------------------------------------------------------"
  2. " Device Class is an abstract class.  Derived classes use its methods "
  3. " to talk to the Amiga OS. "
  4. "---------------------------------------------------------------------"
  5.  
  6. Class Device :Object
  7. [
  8.   clear
  9.    super notImplemented: 'clear'.
  10.    ^ nil
  11. |
  12.   flush: devName
  13.    super subClassResponsibility: 'flush: devName'.
  14.    ^ nil
  15. |
  16.   invalid
  17.    super notImplemented: 'invalid'.
  18.    ^ nil
  19. |
  20.   read: devName
  21.    super notImplemented: 'read: devName'.
  22.    ^ nil
  23. |
  24.   reset: devName
  25.    super subClassResponsibility: 'reset: devName'.
  26.    ^ nil
  27. |
  28.   stop
  29.    super notImplemented: 'stop'.
  30.    ^ nil
  31. |
  32.   start
  33.    super notImplemented: 'start'.
  34.    ^ nil
  35. |
  36.   update
  37.    super notImplemented: 'update'.
  38.    ^ nil
  39. |
  40.   getDeviceAddressList
  41.    ^ <primitive 250 2 4>  "Return an Array of Device Addresses."
  42. |
  43.   write: devName this: string
  44.     super subClassResponsibility: 'write: devName this: string'.
  45.     ^ nil
  46. ]
  47.